home *** CD-ROM | disk | FTP | other *** search
/ ArtRageous! the Amazing World of Art / ArtRageous - The Amazing World of Art (1995)(Softkey).iso / data / artmain.dir / 00091_Script_processFrameQTVR < prev    next >
Text File  |  1995-12-14  |  1KB  |  39 lines
  1. on processFrameQTVR pSpriteNum
  2.   PanoFrameScript pSpriteNum
  3.   processFramePause
  4. end
  5.  
  6. on setupQTVR pSpriteNum, pFileName, pNodeID
  7.   set pShowOnOpen = FALSE
  8.   OpenPanoMovie pFileName, pSpriteNum, pShowOnOpen
  9. end
  10.  
  11. on enterArtQTVR neighborhood
  12.   if neighborhood = "Color" then 
  13.     set pNodeID = 1
  14.   else if neighborhood = "Composition" then 
  15.     set pNodeID = 2
  16.   else if neighborhood = "DB" then 
  17.     set pNodeID = 3
  18.   else if neighborhood = "LifeOfArt" then 
  19.     set pNodeID = 4
  20.   else if neighborhood = "Light" then 
  21.     set pNodeID = 5
  22.   else if neighborhood = "Perspective" then 
  23.     set pNodeID = 6
  24.   end if
  25.   
  26.   if WinMachine() then 
  27.     setupQTVR 1, getat(the searchpath, 1)&"\"&"ArtScene.VR", pNodeID
  28.   else
  29.     setupQTVR 1, getat(the searchpath, 1)&":"&"ArtScene.VR", pNodeID
  30.   end if
  31.   
  32.   -- set the picture of the placeholder rect to the picture of the current frame (PICT)
  33.   set the picture of cast "QTVR Placeholder" to the picture of cast (the castNum of sprite 1)
  34.   
  35.   go frame "QTVR"
  36.   set pQuality = 4
  37.   set pUpdate = TRUE
  38.   SetPanoNode pNodeID, pUpdate, pQuality -- set pQuality = 0
  39. end